home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / hide.src < prev    next >
Text File  |  1990-10-01  |  660b  |  30 lines
  1. %%HP:T(3);
  2. DIR
  3.   HIDE
  4.   \<< VARS "" # 05B15h SYSEVAL PURGE VARS \-> hideobj dirobj allobj 
  5.       \<< hideobj allobj dirobj SIZE 1 + allobj SIZE SUB + 'hideobj' STO
  6.           \<< \>> "" # 05B15h SYSEVAL STO dirobj SIZE 
  7.           IF DUP THEN 
  8.             1 
  9.             FOR x
  10.               'dirobj' x GET DUP hideobj SWAP POS 
  11.               IF NOT THEN 
  12.                 {} + ORDER
  13.               ELSE 
  14.                 DROP 
  15.               END      
  16.               -1
  17.             STEP
  18.           ELSE 
  19.             DROP
  20.           END
  21.       \>>
  22.   \>>
  23.  
  24.   UNHIDE
  25.   \<< VARS SWAP + ORDER \>>
  26.  
  27.   WAKEUP
  28.   \<< "" # 05B15h SYSEVAL PURGE \>>
  29. END
  30.